home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 6 / CU Amiga Magazine's Super CD-ROM 06 (1996)(EMAP Images)(GB)(Track 1 of 4)[!][issue 1997-01].iso / cucd / prog / mui / modula / txt / muiclasssupport.def < prev    next >
Text File  |  1996-08-14  |  1KB  |  42 lines
  1. DEFINITION MODULE MuiClassSupport ;
  2.  
  3. (*
  4.  * $Id: MuiClassSupport.def 1.3 1996/08/14 01:39:07 olf Exp olf $
  5.  *
  6.  * written and (c) 1996 by
  7.  * Olaf 'Olf' Peters <olf@informatik.uni-bremen.de>
  8.  *
  9.  * report bugs, suggestions to the above address.
  10.  *
  11.  *)
  12.  
  13. (*$ LargeVars := FALSE Volatile := FALSE *)
  14.  
  15. FROM SYSTEM       IMPORT  ADDRESS ;
  16. FROM ExecD        IMPORT  LibraryPtr ;
  17. FROM IntuitionD   IMPORT  IClassPtr, ObjectPtr ;
  18. FROM MuiClasses   IMPORT  mCustomClassPtr, DispatcherDef ;
  19. FROM MuiD         IMPORT  StrPtr ;
  20. FROM UtilityD     IMPORT  tagUser, TagItemPtr ;
  21.  
  22. PROCEDURE DoSuperNew(cl       : IClassPtr ;
  23.                      obj      : ObjectPtr ;
  24.                      attrList : TagItemPtr) : ADDRESS ;
  25.  
  26. PROCEDURE setSuper(cl    : IClassPtr ;
  27.                    obj   : ObjectPtr;
  28.                    attr  : LONGCARD;
  29.                    value : LONGINT) ;
  30.  
  31. PROCEDURE InitClass(VAR mcc        : mCustomClassPtr;
  32.                         base       : LibraryPtr ;
  33.                         supername  : StrPtr ;
  34.                         supermcc   : mCustomClassPtr ;
  35.                         datasize   : LONGINT ;
  36.                         dispatcher : DispatcherDef) : BOOLEAN ;
  37.  
  38. PROCEDURE RemoveClass(VAR mcc : mCustomClassPtr) ;
  39.  
  40. END MuiClassSupport .
  41.  
  42.